  setdisplay(320,240,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
prints("prints:")
  for n=1 to 5:prints("String"+str$(n)):next:prints("")
prints("fprints:")
  for n=1 to 5:fprints("String"+str$(n)):next:prints("")
waitKey
